LISTing Newsletter

Jes?
Page 1

ef 9307/70 amy art

2/ Pi? ,

2

Qu

7 Keep

*

HE:

>
MOT

OPES.
fF dL.

FTE الچ‎

v
es ,

2

e
zE

c

POS

=
r,

4

weer
d

ig A GU art jc /

Y

H LAS
ers

GATT

2 /

=. "ny Fes

"Pj
SD
ae d

dre always fo

VE

0

۶ھ

=
5

30/0/37 Dues...

February 1993
Issue

Newsletter af the Long Island Sinclair/Timex Users Group

LISTing Newsletter

Next Meeting Feb 21.1993
X א א א‎ OR OR OK

% x

Table Of Contents

*X CX OX % %

MEETING NOTES AND MEETING DATES
Letter from Don Berry
Program listing by Don Berry

Utility for Ollger Disk Drives

QL Corner by Bob Gilder
Letter from Don Lambert
Letter from Fred M. Carpenter

PAGE 2
PAGE 3
PAGE 5
PAGE 6
PAGE 7
PAGE 8

(incorporating N.Y.T.S.E.)
PAGE 10

HEM EUZIHEZZ

صا و و ا نے ti‏

FRED 5% 160 T TING THAT

; ROLEROOE TO
1

TS IN NEEC
HOT -=56 -
REQUEST

URS MADE THAT
THIS MOVE WOULD GIVE COUR GROUP

MECIA COVERAGE, AND POSSIBLY

HEL HEMEERS FROM THE FACE WHO

ARRE INTERESTED IN COMPUTERS,

THE GROUP COULD GIVE CEMONSTRE -
TIONS Te SHOW THE TRUE POWER AND
AFFORDABILITY OF OUR Tes MACH-
INES 5ב‎ COMPARED TO OTHERS,

OM MAJORITY UOTE. LIST AGREED
TO BECOME A SPONECR FOR ONE
WEAR. FRED WOULD &DUISE THE
LEADERSHIP OF CUESCOUT FACE Fes

TF A NEW DIG-
JECHASED FOR THE
3J BOER ADVISED
THAT HE WILL HAVE A EC UMS ד‎ = -
TION THE NEXT MEETING

PAUL CHOMITZ TOLLE US OF HIS Tere
TS ENGLAND, AND DOHATED BOOKS
BNO MAGAZINES TC THE LIST

ا تر س75 سا

3 =ךד.

ج ج چو جو چو چو جو ج ج چ ججج SHEP‏ جو یو عو عو و

CLASSIFIED SECTION IS

AVAILABLE TO ALL LIST MEMEBERS

FREE OF CHARGE.

THE ONLY RESTRICTION 15 THAT

IT Iz TO BE USED ہہ الات‎ FOR THE

SEEKING, SELLING OR SWAPPING

OF SINCLAIR, TIMEX OR MICEORCE

Eis EQUIPMENT, PERIPHERALS‏ نت
LIST. ANG ITS OFFICERS‏

SOFTWARE,
LISTING.
DO דסא‎ ENDORSE. WARRANTY. OF
GUARANTEE ANY OF THE ITEMS
LISTED IN THIS CLASSIFIED
SECTION

رر رد تد ہہ ہد ہد دید مد ویش

THE FOLLOWING PUBLICATIONS ARE
AVAILABLE ONLY THROUGH LIST:

2%-51/751000 TECHNICAL TIDBITS
TECHNICAL TIDBITS FART II
SHUIMGZ AND LORD CF THE TIME:
ד‎ ₪

$4.00 EACH.

I AM LOOKING FOR ב‎ =CHON INTERN-
לפת ام‎ BOARD INTERFACE WITH OR
WITHOUT THE PC KEYBOARD IN GOOD
CEERGTING CONDITICH.CONTRCT

EGE GILDER AT "771 om
55 JEFFERSON PLACE, MASSA PEGUA
Hav. 11758

WANTED: WAFERS FOR A-J MICRC-
DRIVE (S085 VERSION); ARTHOR™:
SOG STUFF טסל‎ WAHT TO SELL.
MIKE TEPHEN

312 NEWTON AVENUE

ORKRHND,., CA. 54650" 9

A FINAL WORD

HERP SESH HHH eH HS ج ہی ۔ چ ج چ ج یج‎
My MAME 15 FRED STERN AND I AM
THE EDITOR OF THIS EDITION OF
LISTING.

SPECIAL THANKS TO; TOM SKAPINSKI
.EDE GILDER. DON BERRY, DONALD
LRHEERT, AND FRED CARPENTER FOR
THEIR HELF AND ASSISTANCE.

na

a au an en ae ee RN ee یت نت‎

EST

++++
FEES
TRE:
corm, :
ELITE
LIER. x
41++1+4+44++++++++++++1+1+++14+++++
PLEASE SEND 0115653 TO:
LIZT
ME. HI
5 FER : t
VALLEY STREAM. N.Y. 11531
FLERSE SENT SUBMISSIONS TO:
LISTING
MR, FEEDERIC STERN
Po, 25i
1ت 6۴ ات۳‎ 3... 1
re ERE I
Hue TSE

HrTEE MEETS THE ה ד‎ IN
THE MONTH RT; i

MISS KIMS RESTAURANT

PARK AUEMUE SOUTH

BETWEEN 21 zT. AND 22 ST.
MEETINGS START 7.30 PH.

COMING EVENTS:
SHEEP EHH HSE TES
FEB. Sip 1
FEB. 15. 1993 NYTSE MEETING

MEETING MINUTES
REPORTED EY:
FRED STERN

JAN. 17. 1993
Fee HeHeeeesees 555 2% 52% 5 ESE S F PHF
HARVEY CALLED THE MEETING סד‎
ORDER AT תש‎

HARVEY REMINDED ₪5 THAT FEBRUARY
I2 QUES TIME. THE DATE ON THE
LISTING ACORES: LABEL 15 WHEN
YOUR DUES ARE DC. DO NOT BE
CROPPED AS A LIST HEMEER,. PRY
YOUR CUES.

IM CORRES 1 ۴۶۳۴٣ ج‎ 5

5 REHELR ih ÜMBER OF
INFORM AT E LETTERS.

WE WERE SACDENED TO HEAR THAT
JIM CUCAHS I2 MOVING TO BOSTON,
WE ALL WISH HIM THE BEST OF LUCE
AND WE WILL MI22 HIM AT OUR
MEETING.

FEED BDUISED THAT ENQUIRIES HAVE

HOT AS ל‎
COMPANIES

aus E 5 RECUTPUBLIC
ACCESS T.U. BROETCASTING A COM-
FITER INFORMATION SHOL.
HARVEY INFORMEC 72 IF A LETTER
WE RECEIVED FROM :. FRED
CARFENTER,. (SEE E i80) FRED
UF-DRTED ₪ FROJE: WHICH چم ج ح حم‎ -
ED IM THE DEC. 1 | ISSUE OF
LISTING. AND AD ED CF A EUS IN
THE FERSONAL Foe m MANAGER
.8۰ے‎

PROGRAM FOR THE
zx SEX
LIST +

ےج خب و ج ج dis‏
"LIST 5 LIST à LI LIST +‏ +
ندا ج ج غ ج ج چ چ ج ججج چچچ

QL CURNER

The day of Christmas eve was a very joyful one. It looked like Santa
brought me the very Christmas present I had longed for the past two
years. Santa was a friend and LIST member Paul Chomitz, owner of the
R.G.C. Travel Agency Ltd., NYC. Paul advised me that he would be in
London for two days and concented to call CL Systems when he arived in
the UK and order their CQVl QL Video Digitizer for me. The reason I
didn't place the order from them was that CL Systems only deals in cash -
no plastic.

In several past issues of QL WORLD there have been reviews for both the
SPEM digitizer (Italy) and the CL Systems (U.K.) digitizer which
generated much interest for me. I knew I had to have one!

Just what does a video digitizer do? The video digitizer converts normal
video images into a digital format which can be saved to disk and/or
printed to an Epson or Epson compatible printer.

ted
ENIM

EON

i
|
0

LA

/ "eh TTC
And >
TI

n
u
[
Imi
u
Im
1
I
i
וו‎
ul
IP

t

The video digitizer plugs into the rear of the QL ROM (eprom) port. A
standard double phono plug cable connects to a video source such as a
video tape player and the other end of the cable is accepted by the video
digitizer. That's all the hookup that is needed.

The digitizer has one control called 'black level’. The black level
should be adjusted for the best picture quality while you are viewing the
video through the QL Monitor. Do not confuse black level with the
contrast or brightness control on your monitor. Black level affects the
pixels for the screen dumps, where contrast and brightness only affect
the screen image on the monitor. ہے‎

The screen dump appearing with this article is a sample of a digitized
picture of Anita, my sister-in-law, using the screen dump procedure from
the software provided by CL Systems, printed on an old Epson MX-80
printer. The Grey-scale is excellent because the software selects MODE
8, which provides eight levels of shading for the grey-scale. I found
that using the monochrome mode of my monitor was best when using the
video digitizer opposed to using color.

I had some doubts about using the digitizer until I read through the
operating manual several times and then ran the software provided, which
is תס‎ a 3.5" disk. A menu appears within a few seconds of loading the
software and it is very easy to use, one keypress for each command and
either an action occurs or a prompt appears, such as in loading or saving
or printing screens. You can havea full screen, a quarter-screen or
four-quarter screen. You can Invert or have a Negative picture at any
time. You have the facilities to store a picture in memory, recall it at
any time or merge it with another picture.

Pixel density for a full size picture is 256 X 256 as opposed to 128 X
128 pixels for the quarter-screen mode.

Reading about a video digitizer does not give you the best perspective;
you have to either use it or see it in action. If you are interested in
obtaining one, contact CL Systems, 403 Chapter Road, Dillis Hill, London
NW2 5NG, U.K. Tel: 081-459-1351.

Cost is £99.00 plus £9.00 post 8 packing.

I will demonstrate the 0071 video digitizer at the February LIST meeting
- See you there..... Bob Gilder

OG Ge Ge CS E: C LE C2 C C

PLAT הגו‎ Brhl E Ae RETOUR 1 HEMT Fil T PRINT

OR >=‏
رک اس ا ai‏

EE EE IE iT Pa AIR: HEF CODE PEEE THB
۷ا‎ aM UE 00 Fur 1 111 HF Lut

Sm Di I ne . 5 d מ‎
NEW
LINE

IH

"RH p ITH‏ זומת ררושה

LENT ~ پت‎ iE. HUGE 0ھ‎

= וו

Zxr QLIve 1 FLEES

From the desk of the Chairman
1301 KIBLINGER PLACE
AUBURN, IN 46706-30108
Tele: (219) 925-1372
11 23 1992

TRES. ROBERT MALLOY
S PERRI LANE
VALLEY STREAM NY 11581

Dear Robert,

I see that my membership is running close to empty so I will vote for
another year of LISTing Newsletter. My $16.00 vote is enclosed.

About the only thing new is my playing with a program from Bill Pedersen
that gives the first 8 RPMs of a disk drive so that you can tell if it is in
the ball park of the correct RPM. According to the Tandon disk drive manual
the RPM has a tolerance of +-1.5% but according to Bill that is not right
since both the Larken and the Oliger disk interfaces have problems if the
speed is greater than 300 RPM. So that means that the speed should be
between 294.5 and 300. RPM. So far I only have the program for use on the
Oliger disk interface. The program is for the 1770 disk controller chip so
it should work on the Larken and the FDD too. But someone will need to
change the program to allow that. What is off is the OUT port in the
program. In checking some junk drives I had one that was reporting an RPM of
425. and another that reported 228. Some drives have a multiturn pot on them
to tweak the RPM and some don't. The slow drive is a Tandon and it makes a
rubbing sound and besides it has a dragging feel when turned by hand.
Possible some lubrication will help, whatever the trouble is it is in the
spindle and I think in the part that descends onto the disk. The program
will also work on a 3.5 drive.

The important part is not the first one or two RPM but the following ones,
and the evenness of the RPM. I also noted that if it access a drive that is
not the one that was the last one selected that the first couple of RPM
varies more than when it is accessed the second time. This is very handy to
help pinpoint problems if you have been experiencing LOAD or SAVE failures.

Had a very interesting thing happen. I wanted to use the 3.5 drive and so 1
bought a kit to be able to use the 3.5 drive in a full sized case. It came
with à pair of extenders, one for converting the 3.5 power to the same
connector on a 5.25 disk drive and also a connector to convert the 3.5 drive
to the same drive fingers that is on the 5.25 drive. Wouldn't work. Flat out
refused to work. Much, much later I tested and found that the drive without
the cable adaptor would work but with would not. Visually the adaptor looks
good. But now I wonder - maybe one lead wasn't soldered to the plated thru
hole or else the plated through hole wasn't actually plated through. Another
day and another testing of the drive.

I'11 put in a copy of the drive speed program for someone to use (public
domain) if they have an Oliger disk interface. Or convert to use on the
Larken or FDD 2068. Also a copy of the screen.

Sinclairly yours,

>

Donald S. Lambert

The program that Don described

Es esented here. Also printed
the program listing 19 some

"of the screen dumps Don sent.

be \‏ ہی
WIDJUP DISK TESTING SERVICES WIDJUP DISK TESTING SERVICES‏
DISK SPEED MEASURENENT DISK SPEED MEASUREMENT‏

The drive you select wilt be drive you select will be
Les ted tor acceleration and t d for acceleration and
sustained speed. 5 ained speed.

Before proceeding, piace a fore proceeding, place a
disk in gour selected drive and d in your selected drive and
eo ETS ADON: 5 its door.

Turn Turn RPM

. 2 ee ee LE 1 090 س‎
- ee 2 1
5 2 وھ ית 2-ת-‎ ga 3 235.71 — תי میم‎ ٠ تب‎ 8
= 1 4 299.27
5 = 5 299.49 o
5 8 7
0 7 299.55
p 3 299.32

PRESS ANY KEY TO CONTINUE PRESS ANY KEY TO CONTINUE
Teho tr RUC- L
«e TRACK DA
WIDJUP DISK TESTING SERVICES
‘TSK 5 » Sl ₪
ibo SNR S RESTORE 101: FOR کا پر בת‎

The drive gou select will be 40007: READ w: POKE nU. HEX n
tested for acceleration and 101 DATA 243,39, 72,155. ee iS
BuEtained speed. 52.208 ,237,121.16 8.209! 88.8
Before proceeding, place a 202:95112 521225. 0.d05. 51 156.4
dizk i your 3 & 5 l^ a 9. ‘O,’ n sus E Aa Smead tar e
اہ‎ 442 dente ری‎ MS 5/205,51,156.56,-5.115.35.114

183 io ולו וש‎
ur : 102 > ے سا ا صسرت‎ tz:
ב‎ 9,254 246,284, 59. 40.2. ,807,20.8
2 295.16 28غ‎ 5285 2ei,e .0,0.0.0.0.0
3 256.25 0 a D 0 E \
à 298148 —— —9—9—89—9—9—9—— 506 CLS : PRINT " WUIDJUF DI
5 296.50 TESTING SERVICES | DISK 5
5 256.39 ם‎ D MEASUREMENT". -—
7 295.56 520 PRINT '" © The drive you žē
8 238.07 Lect will be tested for acceter
ation and sustained speed,
Before ב‎
E23 ¥ KES cO disk in your selec "€ i
PRESS ANY KEY TO CONTINUE a di er ene ia
530 INPUT “Which drive? 10 TO 3
j و‎ R -
531 OUT 185,0: PAUSE 50: OUT 18
ر‎ P852" | ET ۵8ں‎ 59936
otf i 32 w=USR 399 "
10 ORe E 533 INK 1: PLOT 100.81: DRAW 15
Te RAG 2 ד‎ 6.0: PLOT 100,72: DRAW 150.0: FL
WIDJUP DISK TESTING SERVICES OT 100.63: DRAW 150.0: INK ۵
DISK SPEED MEASUREMENT E34 PRINT ^" Turn RPM": ON ERR
GO TO 548: FOR n=40008 TO 40022
drive you serert بد ہو‎ STEP 2: LET w=PEEK n+256+PEEK |
for acceleration and ns1)
ned speed. 535 STR (16050007W)
re proceeding, place à. S56 IF LEN w$>6 THEN LET פש=פש‎ i
n your selected drive and TO 6)
its door. 537 PRINT " %:0003ם-2/א;"‎ “iw
5
Turn, RPM 538 INK 1: PLOT 8¥(n-399941 70+
1 302.05 جم‎ 2.5s(URHL W$-300): DRAW 2.0: DRAW
2 301.55 1 r Q.4: DRAW -4,0: DRAW 6.54: DRAN
3 299.10 _— opoe 2,0: INK 0
کسر نت نت‎ 548 NEXT n: ON ERR RESET . .
= 9 S50 PRINT ''" PRESS ANY KEY
5 2935.52 TO CONTINUE ". PAUSE @: GO TO
$E 500 0 ₪
5 295 8889 CLEAR : SAVE ;;"DISKSPEED
LINE 1

FRESS ANY KEY TO CONTINUE

The rest correlation is "i.c"
The ciosest curve to a
correlation af 1.0 is the LEST
"Pit". ffter selecting the best
"Pit", the curve may be tested
bu inputting values of X and
conputing *.

The only hang-up is thet all
data {XN and ,גצ‎ must be sreater
than ©. This is becavse for
curves 2, 6, 7, and 8,;
loserithims of input data are
computed. Since 1:95 e
negative numbers are uncer:
this produces an error message.
For negative data, the progran
would have to be modified by
deleting the computations of
1095 fsuch as sinx, slny. etc.)
The variable sinx means the sun
of intxJ, :n Case yeu tere
wondering. This means curves 2,
6. 7, and 8 cannot be used for
negative data.

"^

Th:s problem will be handlec فاط‎
a polynomial curve fir Program
that I also have (if there is
interest in it). The poiunaonial
curve fit can easily handle
positive and negative data.

I would be interested ta KNOU
reader feed back oun this
progran.

Sincerely,

Don Berry

LIST

5 Feri Lane

Vallieu Stream, RY 11581
Gentiemen,

Hi from a neu menber. 1 an a
Fechaical Engineer hy
٣۲۲۵۲55 10 8:1 and enciosed i5 4
progran for the newsletter.
Naturallu, it is technical in
nature, like me. It :5 3 curve
Fit proaram. Data i5 entered
just once and 8 different curves
nay be tested to see hou
accurately they fit the data.
the data i5 a set of x and y
values. BY regression, the
curves produce 383 8 to
م8‎ ۶: × 1 aate values of T, given
X. The coefficients for the
ecuatians 35 סש‎ 1 1 as the
accuracy tCcorrelation) are
computed. It works surprisingly
fast, even on the trusty ۰
Since it is written entirely in
BESIC, it could be typed
directly into a TS2@68 aiso.

‘BEES "اک جع‎
“(SOLVE FOR A סאה‎ E''
"1 -- Y = A + Eee iLI

930 PRINT

906 PRINT "8 -- Y = R«BsLH'!*
LOGARITHMIC!”

1000 PRINT
1010 FRIHT
ناج‎ 66۴81 10( "
1 28 PRINT
1836 PRINT
ERBOLIc)"
1948 PRINT
1050 PRINT "S == ysl (Atbse ؛‎
FREE LIHERR!"

1960 ۳
1878 PRINT
METRIC)"
1880 FRINT
19989 PRINT

à FRINT
1110 FRI ND Sa = Y as AES BEAN
EXFONEHTIBL!'

"5 -— Y = ABEL f

"4 ve Y = AABN

"EB -- Y = א--2+5‎

1128 FEINT © (E=2.,.71328131”
1129 FFINT
114g FFIMT “INPUT NO. CHOICE"
1158 INPUT C
1178 IF ₪51 THEN GOTO 1309
1123 “IF C=2 THEN GOTO 1522
1108 IF C23 THEN GOTO 123-22
1200 IF C=4 THEN GOTO 2222
1210 IF C25 THEN GOTO 2518
122880 IF C= THEN GOTO 2972
i230 IF C=? THEN GOTO 3222
1240 IF C23 THEN GOTO 3728
1258 GOTO 8
1308 REM LINEAR FIT :
1318 LET EzilMzSXY- 13X25: 5ے [י‎
IEE
כושם‎
E

. لاک ہے

i Y
ב‎ )٢۷ چا ا‎ SY be (hese

ony
e

A CX
m
+

FDriMsB5X8B-Sxs5X ے٤۷‎ 2
Sw!

LET &-iRH/RD)

<

=
-
=
=
=
>
=
a
3
E

1 2
133€
134

ey

i25

13€

137

1
1
1
1
1
1
1
1
1
1
1

f20]f3*
וו‎
r

“LINEAR MODEL.: `

G03 UB 2508
REM LINERR FIT
cossus saoe
LET ب *+צפ+מבל‎
FRIHT
PRINT "FOR X ug M
FRIHT
PRIHT
FRIHT
PRIHT

0 رن ADD‏ כ כו =

Y 4 ; Y

“ANOTHER X 7 "ואוו‎

Ut un cu Or UL UI =)
I ON CAO CG CO CO Ci CN

H
₪

oo
eo

1565 PRIHT

1570 INPUT B$ ,

1559 IF B$=" N THEH כדסט‎ 0

1sae IF B$=. £4" THEN GOTO 1498

1528 FEM LOGARITHMIC

1220 LET = 57+ | 2 )ا‎ |
51 4× - 1 E -8L' i113

15489 LET RH2isY-EsSLHE?) oN

isse LET EH2iHMzS5YLMX-SY*zLHX)*iH
23yL HX-5Y +

1650 LET RDzINESSLNX2-SLH«*SLHXI +
IHxzY2-£Y*5Y!

1570 LET R= tRN-RD)

isse CLS

1226 FRIHT

i768 PRINT “LOGARITHMIC "םסכ‎
1708 PRIHT

1718 GOSUE 6500

4735 IF Age y" THEN GOTO 1818
1510 REM LOG FIT

3 n
ANY.
ES:
ONCE
BE :

a PD)

(LM

(LN

X*LN

10 FEM MULTICURVE -—
30 REM BY DH BERRY 11-2-32
20 3
4@ PRINT
SQ PRINT "THIS PROGRAM FIT
SET" ^T ^
Ea PRINT "OF X, Y CATA TO
OF" 00
SS PRINT "8 DIFFERENT CURV
DATA" =
70 PRINT "I8 ENTERED JUST
75 PRINT ‘NOTE: DATA MUST
a
PRINT
ERINT “INPUT S TO START
PRINT

INFOT 35

IF دہ‎ 5" THEN GOTO 150
IF 5549757 THEN GOTO +
REM INTTIALIZATION

f ו ו‎ c een n 2 +

I
INT "INPUT NO. OF CAT
I

מ

PUT H
INT ₪

R 151 TON
“INPUT

PUT א‎

7
-

KE

x

+

=
14

“INPUT Y";I
26 ۲
INPUT wv
ERIHT
PRINT x
LET 4
LET
LET
LET
LET
LET
LET

CET
LET
LET
LET
LET
LET
LET
LEE

Nx LNX4LN X

NxZ=SSLNX2+(LN +
-SYLHX4Y SLM X

+ + + ج

QY FEK EY

LET Vy SSMDY +:
LET ٣۷ =SLNY $
LET NVSSSUNYSA (LN v)s

/(LHY-SXLNY-4X«LH Y
NXLNYsSLNXLNY اطا+‎

LET גב‎
LET 5

fU بے خر‎ D C) ~J TLN Ca TO خر‎ C9 D O0 4 Th CR C TO سر‎ CD

fee FA Fe Lada Ca تی رر رر‎ ha Fa o Qo) Fo FO Fo Fo [OE FO E E e | کوچ‎ RP Fe e

OSD‏ ت CO T O‏ 2( تن Ca‏ بات ت C2 C)‏ )€ یت C9 C) €) CJ C9‏ €2 بت ن تج ت

£5 C) ت‎ Cà C3 Ca C2 CJ CJ CJ O C2 C) د١‎ 62 C3 Ca F3 6)

H
û e cji oi ل-‎ Ou OL £s C) TU e 63 -1

vn uem gu em em en iun emn rum en gren nz

GJ FO טונ سر‎ CO ~J OD 11 =

Ca OD C)‏ ا C2 69 C)‏ تا )€ כ

= و‎ Rea ו‎
תו‎ een
Gc

GG

PRINT
INFUT E$

LH SEs אוה‎
RTS ا‎

4+ ו+ואבצ+צאב-2א5+ו ےدام ‘LET‏
]+ 4% - םש

zero LET R=iRH/RD]

eos

PRINT

PRINT “GEOMETRIC MOCEL
ERIH

FRIN 5 >5 ٭‎ +

PRIN

5050

SF IN

REM SECMETRIC

50505 %

LET Y

FRINT

PRINT "FOR X = "jx
PRINT

PRINT ^ ce
PRINT

PRINT “ANOTHER T (v. הו‎
PRINT

INPUT ES

IF RN THEN GOTO 4550
IF B£z " THEN GOTO 3240
REH POUER MODEL
30 LET Behe 2

3 7 P
3430 LET BREANESUNXEHVESE +]
*sLHY!

3448 LET FDzIiHsSLME2-SLHsszLHxi x
AH EZ SLI e- 2 + 5

LET RzIRH-/RD)

PRINT “ANOTHER ? (Y.H)"

=
5
n
mn
H
=
ב‎

= 3 CLS

2470 FRIHT "POWER MODEL: -
S428 FRIIIT

2 OQ FRINT “vy = nsxs-E
: 9 FRIHT

25108 cOZzyuB Esa

3530 REM POWER

COZUE 0‏ ف26

BESO LET פ++<+ה5ץ‎

3550 PRINT

3570 FRIHT "FOR X = پر‎
3830 FRIHT

35690 PRINT " و‎ Bony
369295 PRINT

שקב

2718

37

720 IF Bg: THEN GOTI 15292
3740 IF 8%= THEN GOTO 28528

me

FEM EXPONENTIAL‏ و
7a „EET B= INSSXLNV ۳‏

) F.
J >
10

BO) <

ו

ao LET 253 -8%5%( oN

790 LET H=E¥P Z

LET RHsíHsSsSXLHY-sxsz LNW) # IN‏ שש
( ات سے 5% - LNT‏

18 LET כ%א4+5ובפת‎ - -5X#5X1 > 5
۳ ات سے‎ *SLHMYi

TG) GI C) En C)

382 LET RziRH/^/RDP)

3830 CLS

3840 PRINT

3859 PRINT “EXPONENTIAL HODEL:"
23860 FRIHT

3378 FRIHT "Y = BsEss(Esv"
3280 PRIHT " IE = 2.,78i14i"
S520 PRINT

2980 פשבטט‎ espa

4020 REM EXPONENTIAL
4832 EOSUS seon

4040 LET vzH*EXP (Bx)
4059 PRINT

4060 FRINT "FOR X s ہر‎
4065 PRINT

“INVERSE LINEAR MODEL

2000
-*+5 ₪

=

"ANOTHER 2 Cy رپ۲‎

Ef
4" THEN GOTO i258
IF BES" 7" THEN GOTO 1312
REH QUADRATIC
LET EziM*B5XeEY-SX2*2571!^1!Mxs85X
2x2
LET HzisY-BsS5XZ).H
LET RHziHssX2vY-5X25s27)5iHs5
deis i UE
(X23) (HSS

SIR RD)

2020 PRINT “QUADRATIC MODEL: ٣
2030 PRINT "Y = A + BaXssc"

2059 BOSUE e&esaa
פססם‎ IF AS="N" THEN
2072 IF Ag="¥" THEN
i e FEM GuAcRATIC
o GOSUB ٥

e LET v2H4«B«sxX

e PRINT

e PRIHT "FOR X "FX
e PRINT
۵

e

a

e

e

e

PRINT " = ۷
PRINT

PRINT “ANOTHER X ? "וא/ו‎
INPUT B$

V כח כח גת‎ Po כח‎ Fo PO כח גוז בח‎
نا כו‎ TO fO FO fü f t خر‎ E =

IF B£-"M" THEN GOTO 422
IF "ח"בצם‎ THEN GOTO 2156
PEM HYPERBOLIC
LET i

eH
IN¥SYD X-Si1bx +4ו4+(צפי‎

-515%++2( 8%

RSW

LET ۴-۲۴۲] (

CLZ

FRIHT

ERI “HYPERBOLIC MOCEL:'
FRI

ER‏ ]תת

FRIN

Sos

IF 4412
IF 2360
E

LET AziS1DY-BxS5:‏ סכסם
LET FHziHx5XDY-‏
( 10 کے ہے اہ

g LET וא5+2-5%א4+5ו-ם2ם‎ 0
1

LET R= (RH-RDB)

SLOVY) ٭‎ (N=

Balin‏ + ق۲0 رو

SE LINEAR

x $4 ee

PRINT “ANOTHER ٭‎ iv."

4070 PRINT " Y = "iY 28: 8
4080 PRIM 4610 STOP
80 PRINT rt E כ‎
109 PRIN 5 fo
4110 INPUT B$ Giese Rer E Re
4188 IF B$:;“Y" THEN GOTO 4710 ps ا‎
4130 IF Bgz"v" THEN GOTO 8 4710 CLS
4150 REM FINAL DISPLAYS ern Cote
4170 CLS — 00
ác \ 4730 PRINT “EXPONENTIAL MODEL:
4180 PRINT “LINEAR MODEL." A RO CRINE uns Maarre
4200 PRI 0 7ئ ا :ה הב‎
4210 PRINT "v = A + Bee" השס‎
ב 16ج‎ 4770 STOP
הבכ‎ ۵ S000 REM TEST MODEL
Sto CLS 5018 CLS
doo PRINT 8٤0 CRINT i P x 24
- ت‎ ٦ 9 "R א‎ Ww [^ E שד‎
4270 PRINT “LOGARITHMIC MODEL" 8030 PRINT “GIVEN X, CALILLATE
4250 PRINT A :
ici ae "مم‎ ۱70 Pm 8040 7
dog nib Eleg on PAM E050 PRINT “INPUT X"
٭‎ +868 8080 PRINT
4310 STO PUT X
$330 CLS 6070 INPUT X
1340 PRINT 8080 PRINT .
4350 PRINT “QUADRATIC MOCEL:" 5090 FRINT X
4360 PRINT 5100 EET
4370 FRIMT "Y = A + ےئ ریع‎ 6110 RETURN سے‎ ETE
1380 COSUB E18 6150 REM DISPLAY CONSTANTS
SS 08 8170 PRINT
4390 5 5 ۱ 7
4410 CLS 5180 PRINT "A = “jn
1120 PRINT ۱ 6190 PRINT p 2
4430 PRINT “HYPERBOLIC MODEL 6200 PRINT "B = ";B
TIO EET 6210 PRINT
שה‎ CR M S 6220 PRINT “CORRELATION = ";R
- JJ קב , שש‎
4460 GUSUB 6160 8210 RETURN
4490 CLS 6500 REM DISFLRY CONSTANTS
4490 PRINT 6510 PRINT הנ" = ה"‎
4500 PRINT “INVERSE LINEAR MODEL S830 PRINT "B = "jB
tram ₪ : 6540 :
BTN WY EE E ol 6550 PRINT "CORRELATION = ";R
1510 stop ללד"‎ 8570 PRINT "OK 7 (Y/N)"
TILO OTO 6580 PRINT
1550 ERINT 5800 IF :جم‎ Y" THEN GOT? 930
DOR PES AG REL d 0٤ج‎ + "ץצ"‎ GOT? 9:
4570 PRINT “GEOMETRIC MOTEL: $609 IF Agcy THEN RETURN
4580 FRINT 5900 RETURN
4590 FRIMT "v = ABER" 9 |
m. Sog. ہی کے‎
T 3i ESX 4% Ess
x X D ka 4 ! N cx x
۰ - 7 tt
§ 45 WD RAM پک‎ =
~ eh کا ריש‎ 3 & 3
a =~ ES 8 جن وم‎ Ig SSE S
NY ` , جا פס‎ ® SS
SO ROAS? WO eh X
یں فو ہی تہ‎ DUET SÛN אי‎
S ماک وق‎ D NIR
: ` = o
~ ₪ se WSS asap kb ES
Fg Q 3 3
= ¥ sa % = % کچ‎ i 3
` uq o n> یت‎ "3 4
= mi = SSR re 2 ב‎ A בי‎
= w = . i ei Re xs INL
< < e; 7 AS W ° N X =
ےہ کچل نہ‎ e ¥ Dame ^| x 5 2s
رہ‎ 9e — NR אא‎ RD
~ ly N ۰ c» | ב نج קל‎ = SS
Chm = ھا ےےل‎ d - Sy
8 2 AN “Sec EN d €i REN
S ME: S = = e RU دی‎
ds = א‎ TZS We.
r4 Qe S38